home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / Recent1 / Filer4_01.lha / Filer / Rexx / DMSWrite.filer < prev    next >
Text File  |  1995-06-12  |  2KB  |  84 lines
  1. /* 
  2.  
  3.    $VER: DMSWrite.filer 3.2 (12.6.95)
  4.  
  5.    Author:
  6.     Matthias Scheler <tron@lyssa.owl.de>
  7.  
  8.    Function:
  9.     Opens a string requester, asks for a drive and writes DMS file to the
  10.     specified drive. After the DMS file has been written the user can
  11.     decide to call the "Verify" command (include with Filer) to check the
  12.     disk.
  13.  
  14.    History:
  15.     2.1   added "PANEL OFF" and "PANEL ON"
  16.     3.0   localized
  17.     3.1   removed unnecessary ADDRESS 'FilerRexx'
  18.     3.2   added "CALL" before "SETCLIP" to prevent search for "1.rexx"
  19.  
  20.    Requires:
  21.     Bin/Verify
  22.  
  23.    Call:
  24.     DMSWrite FILENAME
  25.  
  26.    Example for "Filer.RC":
  27.     REXXCLASS "#?.dms","DMS!","DMSWrite %s"
  28.  
  29. */
  30.  
  31. PARSE ARG FileName
  32.  
  33. OPTIONS RESULTS
  34.  
  35. Text1='Extract DMS file'
  36. Text2='Enter target drive (e.g. "DF0:"):'
  37. Text3='Extract DMS file aborted'
  38. Text4='Extracting DMS file "'
  39. Text5='" to "'
  40. Text6='Check disk for read errors ?'
  41. Text7='Extracted DMS file "'
  42. Text8='" to "'
  43.  
  44. GETLANGUAGE
  45. IF RESULT="deutsch" THEN
  46.  DO
  47.   Text1='DMS-Datei auspacken'
  48.   Text2='Gegen Sie das Ziellaufwerk ein (z.B. "DF0:"):'
  49.   Text3='Auspacken der DMS-Datei abgebrochen'
  50.   Text4='Entpacke DMS-Datei "'
  51.   Text5='" nach "'
  52.   Text6='Diskette auf Lesefehler untersuchen ?'
  53.   Text7='DMS-Datei "'
  54.   Text8='" ausgepackt nach "'
  55.  END
  56.  
  57. 'STATUS '||Text1
  58. PANEL OFF
  59.  
  60. DISKDRIVE=GETCLIP('FILER_DRIVE')
  61. IF DISKDRIVE="" THEN DISKDRIVE='DF0:'
  62.  
  63. SETSTRING DISKDRIVE
  64. 'GETSTRING '||Text2
  65. IF RESULT="RESULT" THEN
  66.  DO
  67.   PANEL ON
  68.  
  69.   'STATUS '||Text3
  70.   EXIT 5
  71.  END
  72.  
  73. DISKDRIVE=RESULT
  74. CALL SETCLIP('FILER_DRIVE',DISKDRIVE)
  75.  
  76. 'STATUS '||Text4||FileName||Text5||DISKDRIVE||'" ...'
  77. EXECANDWAIT 'DMS WRITE ' FileName ' TO ' DISKDRIVE 'NOTEXT'
  78.  
  79. 'QUESTBOX '||Text6
  80. IF RESULT THEN EXEC 'Verify ' DISKDRIVE 'NOWAIT'
  81.  
  82. PANEL ON
  83. 'HISTORY 'Text7||FileName||Text8||DISKDRIVE||'".'
  84.